10 IF F=0 THEN F=1:LOAD"FONTERS",8,1
20 POKE 56334,0:POKE 1,51
30 POKE 1,55:POKE 56334,1
40 POKE 648,204:POKE 53272,58
50 POKE 56576,PEEK(56576)AND252
60 POKE 53280,15:POKE 53281,15
70 POKE 646,0:CLR
80 PRINT CHR$(142)
90 PRINT CHR$(8)
100 DIM A$(5000),B$(5000):A=0:B=0:N$="FILE"
110 PRINTCHR$(147)
120 PRINT"     [215]UKASZ KALINOWSKI PRZEDSTAWIA "
130 PRINT
140 PRINT"        SAMOUK [151]ANGIELSKO-POLSKI[144]"
150 PRINT
160 PRINT"       1.WPISANIE S[215][218]WEK DO S[215]OWNIKA"
170 PRINT"       2.WYSZUKIWANIE S[215][218]WEK
180 [153]"       3.OPCJE DYSKIETKI
190 PRINT"       4.NAZWA ZBIORU
200 [153]"       5.SKASOWANIE DANYCH
210 PRINT"       6.WYJ[216]CIE Z PROGRAMU
220 [153]"       7.HELP - POLSKIE ZNAKI
230 PRINT"
240 [153]"WOLNA PAMIPEEK(null) :";5000[171]A
250 [153]"NAZWA ZBIORU : ";N$
251 [153]"COPYRIGHT BY (null)UKASZ KALINOWSKI"
260 [161] C$
270 [139] C$[178]"1" [167] 350
280 [139] C$[178]"2" [167] 540
290 [139] C$[178]"3" [167] 800
300 [139] C$[178]"4" [167] 1170
310 [139] C$[178]"5" [167] 1230
320 [139] C$[178]"6" [167] 1330
330 [139] C$[178]"7" [167] 1420
340 [137] 260
350 [143] * OPCJA 1 *
360 A[178]A[170]1:[139] A[177]5000 [167] 110
370 [153] [199](147)
380 [153]"WPISYWANIE S(null)(null)WEK DO S(null)OWNIKA."
390 [153]
400 [153]"S(null)OWO NUMER :";A
410 [153]
420 [153]"POKEZNACZENIE ANGIELSKIE :STOP"
430 [159] 1,0:[132]1,A$(A):[160] 1
440 [139] [195](A$(A))[177]25 [167] 420
450 [153]"POKEZNACZENIE POLSKIE :STOP"
460 [159] 1,0:[132]1,B$(A):[160] 1
470 [139] [195](B$(A))[177]25 [167] 460
480 [153]:[153]
490 [153]"          CZY WSZYSTKO (POKETSTOP/POKENSTOP)
500 GET C$
510 IF C$="T" THEN 110
520 IF C$="N" THEN 360
530 GOTO 500
540 REM * OPCJA 2 *
550 IF A=0 THEN 110
560 PRINT CHR$(147)
570 PRINT"WYSZUKIWANIE S[215][218]WEK."
580 PRINT
590 PRINT"WPISZ S[215][218]WKO :"
600 OPEN 1,0:INPUT#1,D$:CLOSE 1
610 IF LEN(D$)>25 THEN 590
620 FOR D=1 TO A:IF A$(D)=D$ THEN 740
630 NEXT D
640 FOR D=1 TO A:IF B$(D)=D$ THEN 740
650 NEXT D
660 PRINT:PRINT
670 PRINT"[151]S[215][218]WKO NIEZNALEZIONE.[144]"
680 PRINT
690 PRINT"          CZY WSZYSTKO ([151]T[144]/[151]N[144])
700 [161] C$
710 [139] C$[178]"T" [167] 110
720 [139] C$[178]"N" [167] 540
730 [137] 700
740 [153]:[153]
750 [153]"POKEZNACZENIE POLSKIE :STOP"
760 [153] A$(D)
770 [153]"POKEZNACZENIE ANGIELSKIE :STOP"
780 [153] B$(D)
790 [137] 680
800 [143] * OPCJA 3 *
810 [153] [199](147):R$[178][199](13)
820 [153]"OPCJE DYSKIETKI."
830 [153]
840 [153]"1.ZAPIS S(null)OWNIKA NA DYSK "
850 [153]"2.ODCZYT S(null)OWNIKA Z DYSKU"
860 [153]"3.POWR(null)T DO MENU   "
870 [161] C$
880 [139] C$[178]"1" [167] 920
890 [139] C$[178]"2" [167] 1060
900 [139] C$[178]"3" [167] 110
910 [137] 870
920 [153] [199](147)
930 [153]"NAZWA ZBIORU : ";N$
940 [159] 15,8,15,"I0:":[160] 15
950 [159] 1,8,1,"FILE."[170]N$[170]",S":[152]1,A
960 [129] D[178]1 [164] A
970 [152]1,A$(D);R$;B$(D);R$;
980 [130] D:[160] 1
990 [153]
1000 [159] 15,8,15:[132]15,A$,B$,C$,D$:[160] 15
1010 [153]"POKESTATUS :STOP ";A$[170]" "[170]B$[170]" "[170]C$[170]","[170]D$
1020 [153]
1030 [153]"WCI(null)NIJ POKERETURNSTOPWAIT":[153]
1040 [161] Q$:[139] Q$[179][177][199](13) [167] 1040
1050 [137] 800
1060 [153] [199](147)
1070 [153]"NAZWA ZBIORU : ";N$:[153]
1080 [159] 15,8,15,"I0:":[160] 15
1090 [159] 1,8,0,"FILE."[170]N$[170]",S":[132]1,A
1100 [129] D[178]1 [164] A:[132]1,A$(D):[132]1,B$(D):[130] D:[160] 1
1110 [159] 15,8,15:[132]15,A$,B$,C$,D$:[160] 15
1120 [153]"POKESTATUS :STOP ";A$[170]" "[170]B$[170]" "[170]C$[170]","[170]D$
1130 [153]
1140 [153]"WCI(null)NIJ POKERETURNSTOPWAIT"
1150 [161] Q$:[139] Q$[179][177][199](13) [167] 1150
1160 [137] 800
1170 [143] * OPCJA 4 *
1180 [153] [199](147)
1190 [153]"NAZWA ZIBIORU :":[153]
1200 [159] 1,0:[132]1,N$:[160] 1
1210 [139] [195](N$)[177]11 [167] 1190
1220 [137] 110
1230 [143] * OPCJA 5 *
1240 [153] [199](147)
1250 [153]"KASOWANIE DANYCH."
1260 [153]
1270 [153]"CZY SKASOWA(null) (POKETSTOP/POKENSTOP)"
1280 [161] Q$
1290 [139] Q$[178]"T" [167] 1320
1300 [139] Q$[178]"N" [167] 110
1310 [137] 1280
1320 [156]:[137] 100
1330 [143] * OPCJA 6
1340 [153] [199](147)
1350 [153]"WYJ(null)CIE Z PROGRAMU."
1360 [153]
1370 [153]"CZY WYJ(null)(null) (POKETSTOP/POKENSTOP)
1380 GET Q$
1390 IF Q$="T" THEN PRINT"[147]":NEW
1400 IF Q$="N" THEN 110
1410 GOTO 1380
1420 REM * OPCJA 7 *
1430 PRINT CHR$(147)
1440 PRINT"POLSKIE ZNAKI :"
1450 PRINT
1460 PRINT"SHIFT + A = [193]
1470 [153]"SHIFT + S = (null)
1480 PRINT"SHIFT + B = [194]
1490 [153]"SHIFT + W = (null)
1500 PRINT"SHIFT + Q = [209]
1510 [153]"SHIFT + Z = (null)
1520 PRINT"SHIFT + X = [216]
1530 [153]"SHIFT + ^ = (null)
1540 PRINT"C=    + * = [223]
1550 [153]"
1560 PRINT"[215]UKASZ KALINOWSKI
1570 [153]"UL.TRYBUNALSKA 21/3
1580 PRINT"58-100 [216]WIDNICA
1590 [153]
1600 [153]"         WCI(null)NIJ DOWOLNY KLAWISZ."
1610 [161] Q$:[139] Q$[178]"" [167] 1610
1620 [137] 110